home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / binarydb / zinimgmt.bas < prev   
BASIC Source File  |  1997-02-19  |  2KB  |  38 lines
  1. Attribute VB_Name = "INIMgmt"
  2. Private Const sizer = 255 * 5 'should be adequate b/c for 4 (255 char) fields and 1 extra to store bytes and tombstone word
  3. Private Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
  4. Private Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long
  5.  
  6. Public Function ReadIndex(ByVal lstrKey As String) As String
  7. On Error Resume Next
  8. Dim lfixedstrRetValue As String * sizer
  9. Dim lstrRetValue As String
  10. Dim lintJunk As Integer
  11. Dim lstrSection As String
  12.     
  13.     lstrSection = "Index"
  14.     lfixedstrRetValue = String(sizer, " ")
  15.     lintJunk = GetPrivateProfileString(lstrSection, lstrKey, " ", lfixedstrRetValue, sizer, IndexPath)
  16.     lstrRetValue = Trim(lfixedstrRetValue)
  17.     lstrRetValue = Left(lstrRetValue, Len(lstrRetValue) - 1)
  18.     ReadIndex = lstrRetValue
  19.  
  20. On Error GoTo 0
  21. On Error Resume Next
  22. End Function
  23.  
  24.  
  25. Public Sub WriteIndex(ByVal lstrKey As String, ByVal lstrValue As String)
  26. On Error Resume Next
  27. Dim lstrSection As String
  28. Dim lintJunk As Integer
  29.     
  30.     lstrSection = "Index"
  31.     lstrValue = Trim(lstrValue)
  32.     lintJunk = WritePrivateProfileString(lstrSection, lstrKey, lstrValue, IndexPath)
  33.     
  34.     On Error GoTo 0
  35.     On Error Resume Next
  36. End Sub
  37.  
  38.